540 IF HOLD$ = "A" OR HOLD$ = "E" OR HOLD$ = "I" OR HOLD$ = "O" OR HOLD$ = "U" THEN PRINT "AN ";: GOTO 560
550 PRINT "A ";
560 PRINT TEST$; SPC( 1);N$( INT(NP * RND(3) +1))
570 SPEED= 255
580 VTAB 23: PRINT "ANY KEY = AGAIN E = END": GET Q$
590 REM ALTERNATE 610:FOR TW=1 TO 1250:NEXT TW:GOTO 460
600 IF Q$ = "E" THEN END
610 GOTO 430
1000 REM DATA MUST BE
1010 REM IN THIS ORDER:
1020 REM ADJ, N, V. USE
1030 REM X AS END-OF-LIST
1040 REM INDICATOR
2000 DATA UGLY,STUPID,MEATY,LUMPY,MEAN,DUMB,ENTHUSIASTIC,BOLD,SLY,BRAVE
2010 DATA TALL,WIDE,SHORT,HANDSOME,BLUE-COLORED,GREEN,SICK,DRIPPING,DROOLING,SALIVATING
2020 DATA EAGER,OLD,YOUNG,PLEASANT,BIG,RIPE,INJURED,AMAZED
2030 DATA NAGGING,BRUTAL,LOVELY,BRILLIANT,SHINY,PICKLED,OBSESSED
2040 DATA DEAF,CROSS-EYED,FEAR-CRAZED,DEVIL-MAY-CARE,DYING,RICH,POOR,ELDERLY,FATHERLY,MOTHERLY,CUTE
2050 DATA LUMBERING,DODDERING,SELF-CENTERED
2060 DATA YELLOW,HARD,SOFT,STICKY,WET,HOT,FINICKY,ROTTEN,WILY,SNEAKY,FEARLESS,AGED,WEARY
2070 DATA X
3000 DATA HORSE,PIG,BUNNY RABBIT,OX,ELEPHANT,FISH
3010 DATA OCTOPUS,POTATO,TOMATO,BROCCOLI,SPONGE,PLATYPUS
3020 DATA STUDENT,PENCIL,FROG,DOG,CAT
3030 DATA SUBMARINE,WHALE,CAMEL,ORANGE,RADISH,BANANA,TURNIP,CABBAGGE,BEET
3040 DATA FORTUNE TELLER,FARMER,BASSOONIST
3050 DATA CANNIBAL,MUGGER,SALESMAN,STORE CLERK,BARBER,TRAVEL AGENT,CLAM,NOODLE,APPLE
3060 DATA X
4000 DATA EATEN,STOLEN,HURT,RUN OVER,SHOT,STOMPED,KISSED
4010 DATA KIDNAPPED,STABBED REPEATEDLY,REWARDED FOR YOUR KINDNESS,LOVED,FUSSED OVER,GREETED WITH A PARADE
4020 DATA SPIED UPON,SHOVED,CHOPPED INTO LITTLE PIECES,CARED FOR,MARRIED,APPRECIATED,CALLED,HELD UP,STUCK UP
4030 DATA PHOTOGRAPHED IN THE NUDE,GUARDED,PRAISED,TARRED AND FEATHERED
4040 DATA USED,AIDED,FRUSTRATED,REMEMBERED,MADE LOVE TO,SOMEWHAT PUZZLED
4050 DATA FLOWN TO MIAMI,TREATED TO LUNCH,THROWN OFF THE ROOF,AWAKENED SUDDENLY,OPERATED UPON,QUESTIONED MERCILESSLY,ABUSED,BADLY BURNED
4060 DATA FIRED,HIRED,EMPLOYED,CONSULTED,ENDOWED,EMBALMED
4070 DATA LAUGHED AT,TICKLED,MISTAKEN FOR A TASTY SNACK
4080 DATA DISSOLVED IN BUTTER,ADORED
4090 DATA HELD PRISONER,IMPRISONED,EATEN ALIVE,BOILED IN OIL,FED TO THE ALLIGATORS,ARRESTED,BETRAYED,NOMINATED FOR PRESIDENT
4100 DATA INVOLVED IN A DOMESTIC QUARREL,EXCHANGED FOR SOMETHING BETTER,RETURNED TO THE MANUFACTURER,TRADED FOR BEADS,HELD FOR RANSOM,IDOLIZED,TESTED FOR RABIES,SWALLOWED WHOLE,SUSPECTED OF INDECENCY
4110 DATA ASKED FOR IDENTIFICATION,EXAMINED THOROUGHLY,SUSPECTED OF IMMORAL BEHAVIOR,FRIED IN CHICKEN FAT
4120 DATA TESTED FOR INTELLIGENCE,DENIED A PASSPORT,HAULED INTO COURT,TIED TO A TREE,LOCKED UP,SENT TO THE BUG HOUSE,PLACED IN ISOLATION
4130 DATA SENTENCED TO DEATH,INVITED TO THE WHITE HOUSE,INVITED TO SING AT THE MET,IRRADIATED,MASHED FLATTER THAN A PANCAKE,PLAYED FOR A FOOL,TOTALLY IGNORED,RUBBED OUT,SPAT UPON,GIVEN LAST RITES
4140 DATA EXAMINED,MADE FUN OF,ADMIRED,OGLED,YELLED AT, DRAFTED,FONDLED,SENT ON A DANGEROUS MISSION,CUDDLED
